\section{Adaptive Filter auf einem DSP}
\small
\begin{lstlisting}[caption=Komplettes Listing]
	;Fir Mono!!

N		EQU	20		
K         EQU   0.99                  

		ORG	x:10	
	
data	BSM	N,0

		ORG	y:0		
koeffs	BSM	N,0
		ORG	y:koeffs
				
		
		include 'init.asm'		
		
		move	#data,r0		
		move	#koeffs,r4		
		move	#N-1,m0			
		move	#N-1,m4			
		
loop	jset	#2,x:SSISR,*
		jclr	#2,x:SSISR,*
		
		move	x:RX_BUFF_BASE,a	
		move	x:RX_BUFF_BASE+1,b	
		
		move	b,x:TX_BUFF_BASE+1		
		move	a,x:-(r0)			
		
		clr		a	x:(r0)+,x0	y:(r4)+,y0	
		
		rep		#N-1						
			mac		x0,y0,a	x:(r0)+,x0	y:(r4)+,y0	

		macr	x0,y0,a

		move	a,x:TX_BUFF_BASE		
		sub	a,b



		
          move  #K,y1                
          move  b,x0                  
          mpy   x0,y1,b               
          move  b,y1                 

          do    #N,adaptloop
          move  y:(r4),a  x:(r0)+,x0  
          mac   x0,y1,a              
          move  a,y:(r4)+            
adaptloop
        
          jmp   loop                 

		
        ;include 'txrx_isr.asm'
		

\end{lstlisting}